Developer CD Series 1996 February: Tool Chest

home *** CD-ROM | disk | FTP | other *** search

/ Developer CD Series 1996 February: Tool Chest / Apple Developer CD Series Tool Chest February 1996 (Apple Computer)(1996).iso / Tool Chest / Interfaces & Libraries / Interfaces / AIncludes / GestaltEqu.a < prev next >

Wrap

Text File | 1993-11-30 | 13.3 KB | 306 lines | [TEXT/MPS ]

; File: GestaltEqu.a ; ; Copyright: © 1983-1993 by Apple Computer, Inc. ; All rights reserved. ; ; Version: System 7.1• for ETO #13 ; Created: Tuesday, March 30, 1993 18:00 ; Modified: Tue, Nov 30, 1993 01:15:40 ; ;___________________________________________________________________________ IF &TYPE('__INCLUDINGGESTALTEQU__') = 'UNDEFINED' THEN __INCLUDINGGESTALTEQU__ SET 1 ************************** * Gestalt error codes ************************** gestaltUnknownErr EQU -5550 ; gestalt doesn't know the answer gestaltUndefSelectorErr EQU -5551 ; undefined code was passed to Gestalt gestaltDupSelectorErr EQU -5552 ; tried to add an entry that already existed gestaltLocationErr EQU -5553 ; gestalt function ptr wasn't in sysheap ************************** * Environment Selectors ************************** gestaltVersion EQU 'vers' ; gestalt version gestaltAddressingModeAttr EQU 'addr' ; addressing mode attributes gestalt32BitAddressing EQU 0 ; using 32-bit addressing mode gestalt32BitSysZone EQU 1 ; 32-bit compatible system zone gestalt32BitCapable EQU 2 ; machine is 32-bit mode capable gestaltAliasMgrAttr EQU 'alis' ; Alias Mgr Attributes gestaltAliasMgrPresent EQU 0 ; True if the Alias Mgr is present gestaltAliasMgrSupportsRemoteAppletalk EQU 1 ; True if the Alias Mgr knows about Remote Appletalk gestaltAppleTalkVersion EQU 'atlk' ; AppleTalk version gestaltAUXVersion EQU 'a/ux' ; a/ux version, if present IF &TYPE('gestaltComponentMgr') = 'UNDEFINED' THEN gestaltComponentMgr EQU 'cpnt' ; Component Mgr version ENDIF gestaltTSMgrVersion EQU 'tsmv' ; Text Services Mgr version, if present gestaltConnMgrAttr EQU 'conn' ; connection mgr attributes gestaltConnMgrPresent EQU 0 gestaltConnMgrCMSearchFix EQU 1 ; do we have fix to CMAddSearch? gestaltConnMgrErrorString EQU 2 gestaltConnMgrMultiAsyncIO EQU 3 gestaltCRMAttr EQU 'crm ' ; comm resource mgr attributes gestaltCRMPresent EQU 0 gestaltCRMPersistentFix EQU 1 ; fix for persistent connections present gestaltCRMToolRsrcCalls EQU 2 gestaltCTBVersion EQU 'ctbv' ; CommToolbox version if present gestaltDBAccessMgrAttr EQU 'dbac' ; Database Access Mgr attributes gestaltDBAccessMgrPresent EQU 0 ; True if the Database Access Mgr present gestaltDITLExtAttr EQU 'ditl' ; AppenDITL, etc. calls from CTB gestaltDITLExtPresent EQU 0 ; True if calls are present gestaltEasyAccessAttr EQU 'easy' ; Easy Access attributes gestaltEasyAccessOff EQU 0 ; if Easy Access present, but off (no icon) gestaltEasyAccessOn EQU 1 ; if Easy Access "On" gestaltEasyAccessSticky EQU 2 ; if Easy Access "Sticky" gestaltEasyAccessLocked EQU 3 ; if Easy Access "Locked" gestaltEditionMgrAttr EQU 'edtn' ; Edition Mgr attributes gestaltEditionMgrPresent EQU 0 ; True if Edition Mgr present gestaltAppleEventsAttr EQU 'evnt' ; Apple Events attributes gestaltAppleEventsPresent EQU 0 ; True if Apple Events present gestaltFindFolderAttr EQU 'fold' ; FindFolder attributes gestaltFindFolderPresent EQU 0 ; True if FindFolder present gestaltFontMgrAttr EQU 'font' ; Font Mgr attributes gestaltOutlineFonts EQU 0 ; True if OutLine Fonts are supported gestaltStandardFileAttr EQU 'stdf' ; Standard File attributes gestaltStandardFile58 EQU 0 ; True if selectors 5-8 (StandardPutFile-CustomGetFile) are supported gestaltFPUType EQU 'fpu ' ; FPU type gestaltNoFPU EQU 0 ; no FPU gestalt68881 EQU 1 ; 68881 FPU gestalt68882 EQU 2 ; 68882 FPU gestalt68040FPU EQU 3 ; 68040 built-in FPU gestaltFSAttr EQU 'fs ' ; file system attributes gestaltFullExtFSDispatching EQU 0 ; has really cool new HFSDispatch dispatcher gestaltHasFSSpecCalls EQU 1 ; has FSSpec calls gestaltHasFileSystemManager EQU 2 ; has a file system manager gestaltFXfrMgrAttr EQU 'fxfr' ; file transfer manager attributes gestaltFXfrMgrPresent EQU 0 gestaltFXfrMgrMultiFile EQU 1 ; supports FTSend and FTReceive gestaltFXfrMgrErrorString EQU 2 gestaltHardwareAttr EQU 'hdwr' ; hardware attributes gestaltHasVIA1 EQU 0 ; VIA1 exists gestaltHasVIA2 EQU 1 ; VIA2 exists gestaltHasASC EQU 3 ; Apple Sound chip exists gestaltHasSCC EQU 4 ; SCC exists gestaltHasSCSI EQU 7 ; SCSI exists gestaltHasSoftPowerOff EQU 19 ; Capable of software power off gestaltHasSCSI961 EQU 21 ; 53C96 SCSI controller on internal bus <50> gestaltHasSCSI962 EQU 22 ; 53C96 SCSI controller on external bus <50> gestaltHasUniversalROM EQU 24 ; Do we gots a Universal ROM? <49> gestaltHelpMgrAttr EQU 'help' ; Help Mgr Attributes gestaltHelpMgrPresent EQU 0 ; true if help mgr is present gestaltHelpMgrExtensions EQU 1 ; true if help mgr extensions are installed gestaltKeyboardType EQU 'kbd ' ; keyboard type gestaltMacKbd EQU 1 gestaltMacAndPad EQU 2 gestaltMacPlusKbd EQU 3 gestaltExtADBKbd EQU 4 gestaltStdADBKbd EQU 5 gestaltPrtblADBKbd EQU 6 gestaltPrtblISOKbd EQU 7 gestaltStdISOADBKbd EQU 8 gestaltExtISOADBKbd EQU 9 gestaltADBKbdII EQU 10 gestaltADBISOKbdII EQU 11 gestaltPwrBookADBKbd EQU 12 ; <49> gestaltPwrBookISOADBKbd EQU 13 ; <49> gestaltLowMemorySize EQU 'lmem' ; size of low-memory area gestaltLogicalRAMSize EQU 'lram' ; logical RAM size gestaltMiscAttr EQU 'misc' ; miscellaneous information gestaltScrollingThrottle EQU 0 ; true if scrolling throttle on gestaltSquareMenuBar EQU 2 ; true if menu bar is square gestaltMMUType EQU 'mmu ' ; MMU type gestaltNoMMU EQU 0 ; no MMU gestaltAMU EQU 1 ; address management unit gestalt68851 EQU 2 ; 68851 PMMU gestalt68030MMU EQU 3 ; 68030 built-in MMU gestalt68040MMU EQU 4 ; 68040 built-in MMU gestaltNotificationMgrAttr EQU 'nmgr' ; notification manager attributes gestaltNotificationPresent EQU 0 ; notification manager exists gestaltSerialAttr EQU 'ser ' ; serial attributes <26> gestaltHasGPIaToDCDa EQU 0 ; GPIa connected to DCDa <26> gestaltHasGPIaToRTxCa EQU 1 ; GPIa connected to RTxCa clock input <26> gestaltHasGPIbToDCDb EQU 2 ; GPIb connected to DCDb <26> gestaltNuBusConnectors EQU 'sltc' ; bitmap of slots with NuBus connectors <26> gestaltOSAttr EQU 'os ' ; O/S attributes gestaltSysZoneGrowable EQU 0 ; system heap is growable gestaltLaunchCanReturn EQU 1 ; can return from launch gestaltLaunchFullFileSpec EQU 2 ; can launch from full file spec gestaltLaunchControl EQU 3 ; launch control support available gestaltTempMemSupport EQU 4 ; temp memory support gestaltRealTempMemory EQU 5 ; temp memory handles are real gestaltTempMemTracked EQU 6 ; temporary memory handles are tracked gestaltIPCSupport EQU 7 ; IPC support is present gestaltSysDebuggerSupport EQU 8 ; system debugger support is present gestaltOSTable EQU 'ostt' ; OS trap table base gestaltToolboxTable EQU 'tbtt' ; Toolbox trap table base gestaltExtToolboxTable EQU 'xttt' ; Extended Toolbox trap table base gestaltLogicalPageSize EQU 'pgsz' ; logical page size gestaltPowerMgrAttr EQU 'powr' ; power manager attributes gestaltPMgrExists EQU 0 gestaltPMgrCPUIdle EQU 1 gestaltPMgrSCC EQU 2 gestaltPMgrSound EQU 3 gestaltPPCToolboxAttr EQU 'ppc ' ; PPC toolbox attributes ; ; PPC will return the combination of following bit fields. ; e.g. gestaltPPCSupportsRealTime +gestaltPPCSupportsIncomming + gestaltPPCSupportsOutGoing ;indicates PPC is cuurently is only supports real time delivery ;and both icoming and outgoing network sessions are allowed. ;By default local real time delivery is supported as long as PPCInit has been called. ; gestaltPPCToolboxPresent EQU $0000 ; PPC Toolbox is present Requires PPCInit to be called gestaltPPCSupportsRealTime EQU $1000 ; PPC Supports real-time deliveryy gestaltPPCSupportsStoreAndForward EQU $2000 ; PPC Store and Forward delivery gestaltPPCSupportsDontCare EQU $4000 ; PPC Supports Specification of Don't care gestaltPPCSupportsIncomming EQU $0001 ; PPC will deny incomming network requests gestaltPPCSupportsOutGoing EQU $0002 ; PPC will deny outgoing network requests gestaltProcessorType EQU 'proc' ; processor type gestalt68000 EQU 1 gestalt68010 EQU 2 gestalt68020 EQU 3 gestalt68030 EQU 4 gestalt68040 EQU 5 gestaltParityAttr EQU 'prty' ; parity attributes gestaltHasParityCapability EQU 0 ; has ability to check parity gestaltParityEnabled EQU 1 ; parity checking enabled gestaltQuickdrawVersion EQU 'qd ' ; quickdraw version gestaltOriginalQD EQU $000 ; original 1-bit QD <3.2> gestalt8BitQD EQU $100 ; 8-bit color QD <3.2> gestalt32BitQD EQU $200 ; 32-bit color QD <3.2> gestalt32BitQD11 EQU $210 ; 32-bit color QDv1.1 <31> gestalt32BitQD12 EQU $220 ; 32-bit color QDv1.2 <31> gestalt32BitQD13 EQU $230 ; 32-bit color QDv1.3 <31> gestaltQuickdrawFeatures EQU 'qdrw' ; quickdraw features <37> gestaltHasColor EQU 0 ; color quickdraw present <37> gestaltHasDeepGWorlds EQU 1 ; GWorlds can be deeper than 1-bit <37> gestaltHasDirectPixMaps EQU 2 ; PixMaps can be direct (16 or 32 bit) <37> gestaltHasGrayishTextOr EQU 3 ; supports text mode grayishTextOr <37> gestaltPhysicalRAMSize EQU 'ram ' ; physical RAM size gestaltPopupAttr EQU 'pop!' ; popup cdef attributes gestaltPopupPresent EQU 0 gestaltResourceMgrAttr EQU 'rsrc' ; Resource Mgr attributes gestaltPartialRsrcs EQU 0 ; True if partial resources exist gestaltScriptMgrVersion EQU 'scri' ; Script Manager version number <08/05/89 pke> gestaltScriptCount EQU 'scr#' ; number of active script systems <08/05/89 pke> gestaltSoundAttr EQU 'snd ' ; sound attributes gestaltStereoCapability EQU 0 ; sound hardware has stereo capability gestaltStereoMixing EQU 1 ; stereo mixing on external speaker gestaltSoundIOMgrPresent EQU 3 ; The Sound I/O Manager is present gestaltBuiltInSoundInput EQU 4 ; built-in Sound Input hardware is present gestaltHasSoundInputDevice EQU 5 ; Sound Input device available gestaltPlayAndRecord EQU 6 ; built-in hardware can play and record simultaneously ; the following bits are not defined prior to Sound Mgr 3.0 gestaltPlayFromDisk EQU 7 ; play from disk available, set by Sound Mgr 3.0 and later gestaltMultiChannels EQU 8 ; multiple channel support, set by Sound Mgr 3.0 and later gestaltStdNBPAttr EQU 'nlup' ; standard nbp attributes gestaltStdNBPPresent EQU 0 gestaltTextEditVersion EQU 'te ' ; TextEdit version number gestaltTE1 EQU 1 ; TextEdit in MacIIci ROM gestaltTE2 EQU 2 ; TextEdit with 6.0.4 Script Systems on MacIIci (Script bug fixes for MacIIci) <8Aug89smb> gestaltTE3 EQU 3 ; TextEdit with 6.0.4 Script Systems all but MacIIci gestaltTE4 EQU 4 ; TextEdit in Big Bang gestaltTE5 EQU 5 ; TextWidthHook available in TextEdit gestaltTermMgrAttr EQU 'term' ; terminal mgr attributes gestaltTermMgrPresent EQU 0 gestaltTermMgrErrorString EQU 2 gestaltTimeMgrVersion EQU 'tmgr' ; time manager attributes gestaltStandardTimeMgr EQU 1 ; standard time mgr is present gestaltRevisedTimeMgr EQU 2 ; revised time mgr is present gestaltExtendedTimeMgr EQU 3 ; extended time mgr is present gestaltVMAttr EQU 'vm ' ; virtual memory attributes gestaltVMPresent EQU 0 ; virtual memory is present gestaltDictionaryMgrAttr EQU 'dict' ; Dictionary Manager attributes gestaltDictionaryMgrPresent EQU 0 ; Dictionary Manager attributes gestaltIconUtilities EQU 'icon' ; Icon Utilities attributes gestaltIconUtilitiesPresent EQU 0 ; true if icon utilities are present ************************** * Info-only Selectors ************************** gestaltMachineType EQU 'mach' ; machine type gestaltClassic EQU 1 gestaltMacXL EQU 2 gestaltMac512KE EQU 3 gestaltMacPlus EQU 4 gestaltMacSE EQU 5 gestaltMacII EQU 6 gestaltMacIIx EQU 7 gestaltMacIIcx EQU 8 gestaltMacSE30 EQU 9 gestaltPortable EQU 10 gestaltMacIIci EQU 11 gestaltMacIIfx EQU 13 gestaltMacClassic EQU 17 ; <29> gestaltMacIIsi EQU 18 ; <29> gestaltMacLC EQU 19 ; <29> gestaltQuadra900 EQU 20 ; <49> gestaltPowerBook170 EQU 21 ; <49> gestaltQuadra700 EQU 22 ; <49> gestaltClassicII EQU 23 ; <49> gestaltPowerBook100 EQU 24 ; <49> gestaltPowerBook140 EQU 25 ; <49> gestaltQuadra950 EQU 26 ; <53> gestaltMacLCII EQU 37 ; <52> gestaltPowerBook145 EQU 54 ; <55> gestaltMachineIcon EQU 'micn' ; machine icon gestaltROMSize EQU 'rom ' ; ROM size gestaltROMVersion EQU 'romv' ; ROM version gestaltSystemVersion EQU 'sysv' ; system version ENDIF ; ...already included